Top 10k strings from Stock Market (1983)(ASP Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   3 ;W$;W$;W$;W$;W$;
   3 ;"        ";
   2 ;"********************************"
   2 *R;"% OF BANK BALANCE "
   2 (B-B(P))+1
   1 Y,X+Q;A$(Q);
   1 XX=XX+H(Q,V)*P(V):
   1 XX=XX+B(Q)-L(Q)
   1 TOP ";A$;"ing "
   1 TC=N(I)-T(I)
   1 T(I)=N(I):
   1 STOCK     
   1 R       R       R       R       R               
   1 P(I)=P(I)+PC:
   1 N(I)=N(I)+H(K,I):
   1 LEADZINCTIN GOLD
   1 L(K)=L(K)+L(K)*((BR+2
   1 H(P,J)=H(P,J)-SS:
   1 H(P,J)=H(P,J)+SS
   1 H(I,R)=H(I,R)+
   1 CAPITAL GAINS TAX
   1 B=SS*P(J):
   1 B<B(P)+CR-.5
   1 B(P)=B(P)-L(P):
   1 B(P)=B(P)-L(P)
   1 B(P)=B(P)-B:
   1 B(P)=B(P)-.1
   1 B(P)=B(P)+SS*P(J)
   1 B(P)=B(P)+H(P,J)*P(J):
   1 B(P)=B(P)+.1
   1 B(P)=B(P)+
   1 B(K)=B(K)-L(K)
   1 B(K)=B(K)+H(K,J)*P(J)
   1 B(K)=B(K)+B(K)*(BR/100
   1 B(K)=B(K)+.2
   1 B(I)=B(I)+.1
   1 A$="sell":
   1 A$="UP BY ":
   1 A$="HOLDING AT PRESENT VALUE":
   1 A$="DOWN BY ":
   1 A$="BANK INTEREST RATE  ":
   1 ;W$;W$;W$;W$;W$;W$;W$;W$;
   1 ;W$;W$;W$;W$;W$;W$;
   1 ;W$;W$;W$;
   1 ;H$(I);" BANKRUPT - SHARES WORTHLESS":
   1 ;"You need more cash to repay Bank":
   1 ;"You do not own that many!":
   1 ;"YOU ARE FORCED INTO LIQUIDATION!":
   1 ;"YOU ARE BANKRUPT SIR!"
   1 ;"TAX MAN RELENTS! - NO TAX DEMAND":
   1 ;"Sorry Sir, you cannot raise    enough cash."
   1 ;"Select level of difficulty"
   1 ;"SHARES SOLD OF AT ";20
   1 ;"Payment = ";R1*10
   1 ;"PAYMENT SUSPENDED DUE TO STRIKE ":
   1 ;"OF `";L(P):
   1 ;"MARKET PRICES  ";
   1 ;"IS A MILLIONAIRE":
   1 ;"How many players? (Max. 6)":
   1 ;"How many ";H$(J);" shares will you"," ";A$;" Sir?     (If none enter 0)"
   1 ;"End of turn ........ ";TU
   1 ;"ERROR IN TAX OFFICE! - NO REFUND":
   1 ;"Do you want to play again?   ";
   1 ;"Do you want to end the game?":
   1 ;"Do you want instructions?"
   1 ;"CAPITAL GAINS TAX INVESTIGATION":
   1 ;"Bonus for all ";H$(R);" Shareholders":
   1 ;"BANK UNHAPPY ....":
   1 ;"BANK ALMOST FAILED - NO INTEREST":
   1 ;"All shares sold at face value"
   1 ;">> G A M E  O V E R <<":
   1 ;"+BANKRUPT+";
   1 ;"++++++++++";
   1 ;"++++++++++":
   1 ;"% of share value"
   1 ;" by ";N$(P);
   1 ;" Zinc Inc."
   1 ;" You owe the bank ` ";L(P);" "
   1 ;" You owe the Bank ` ";L(P);" "
   1 ;" Which shares will you ";A$;" Sir?";
   1 ;" Type ""
   1 ;" Tin Plate"
   1 ;" TRADING PRACTICES SUSPECT ";
   1 ;" TAX REFUND ":
   1 ;" TAX OFFICIALS INVESTIGATE ":
   1 ;" T.I.A.F."
   1 ;" Shares held                    "
   1 ;" Score ":
   1 ;" S. Beere"
   1 ;" REFUND = ";10
   1 ;" Press ENTER to start the game  ";
   1 ;" Player ";
   1 ;" Multibody"
   1 ;" MARKET VERY WEAK ":
   1 ;" Lead Mine"
   1 ;" Gold Mine"
   1 ;" FOR EVERY TWO SHARES HELD ":
   1 ;" Erskine"
   1 ;" DEMAND OF ";10
   1 ;" DEALINGS IN ";H$(J);" SUSPENDED SIR ":
   1 ;" BANK FAILS!! ":
   1 ;" B Y E  F O R  N O W ":
   1 ;" Amount Made ";
   1 ;" ALL MARKET DEALINGS SUSPENDED ":
   1 ;" ALL DEALINGS IN ";H$(I);" SUSPENDED ":
   1 ;" A NEW BANK HAS BEEN SET UP ":
   1 ;" *  I N S T R U C T I O N S   * ";" *  =======================   * "
   1 ;" ";H$(R);" BONUS ISSUE OF 1 SHARE"
   1 ;" ";H$(I);" TAKEN OVER BY A CONSORTIUM":
   1 ;" ";H$(I);" ARE TRADING AGAIN ":
   1 ;" !! NEWSFLASH !! ":
   1 ;"  You do not have enough cash.":
   1 ;"  Enter name of player ";K;"  "
   1 ;"   BANK TAKES LOAN REPAYMENT    ";W$;
   1 ;"    TAKE-OVER BID HAS FAILED!   ":
   1 ;"    Press ENTER to continue     ";
   1 ;"       ";
   1 ;"        ===MARKET NEWS===       "
   1 ;"        !! NEWSFLASH !!         "
   1 ;"                  ":
   1 ," at the normal rate."''"        Will you borrow?":
   1 *R;"% OF VALUE ":
   1 *R1*H(I,R)*P(R):
   1 *R*P(I)*H(K,I):
   1 *(B(K)-1000
   1 )+B(P))-L(P))
   1 (L(P)+B-B(P))+1
   1 (B(K)/(TU+DI*5
   1 ''" The market may be ""BULLED"" or   ""BEARED"" by heavy buying or     selling."
   1 ''" During the course of the game   various 
   1 '"The aim of STOCKS is to make    money by buying and selling     shares in four mining companies."''"At the start of the game each   player has `1000 in the bank andthe price of each share is set  at approximately half it's      maximum value."''"When all the players have boughtor sold as many shares as they  want, the price of the shares isadjusted so that:"
   1 '" The Bank will lend you `";
   1 '" High prices are likely to fall. Low prices are likely to rise."
   1 "LEAD","ZINC","TIN","GOLD"
   1 "1(easy) to 4(hard) .... ";
   1 "''''" When one or more players have   
   1 "" to sell ";
   1 "" to end your turn "
   1 "" to buy, ""
   1 " ";N$(K);
   1  the game is finished."
   1  messages will interrupt play."''''"Watch out for 
   1